(tags-complete-tag): Bind enable-recursive-minibuffers to t.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 4b2e49bad9f025377523ce85280d040df99fec84..9d6ec89d036423cd3229839aeb88a7b21162e80b 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -562,7 +562,9 @@ Assumes the tags table is the current buffer."
 ;; but builds tags-completion-table on demand.
 (defun tags-complete-tag (string predicate what)
   (save-excursion
-    (visit-tags-table-buffer)
+    ;; If we need to ask for the tag table, allow that.
+    (let ((enable-recursive-minibuffers t))
+      (visit-tags-table-buffer))
     (if (eq what t)
        (all-completions string (tags-completion-table) predicate)
       (try-completion string (tags-completion-table) predicate))))